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USING THE DX980 OPERATING SYSTEM 
USER/OPERATOR GUIDE 



The JCL for all utilities in this manual follow each iitility 
The JCL is included so that the user can modify the utility's 
resources to accommodate his particular requirements. 

All operator responses are underlined throughout this supple- 
ment. It assumes the user/operator is using the ASR. If using a 
CRT, the user is to key in only the underlined portions of each 
command. 



J = carriage return 



USING A CRT 

ITS 

The Interactive Terminal Subsystem (ITS) provides simplified 
concurrent communication between the DX980 system and a CRT 
or terminal. 

LOGON 

When communication is to be established between ITS and a 
terminal, the terminal user must enter a LOGON command to 
gain access to ITS facilities. The format of the LOGON 
command is as follows: 

LOGON <USERID> <ACCTNO> 

USERID is an alpha numeric string, limited to 6 characters, 
the first of which must be alphabetic. 

- H'uv^JiiNu JLfcj a, pofc>±L±vt; xiiLtJgtjr Liiat muau ue j-fcjya tiiaii o^s,/oo. 

LOGON example: LOGON ANAME 1 



-^ 



If the last CRT user did not LOGOFF, this gives an error 
message (invalid command). If so, the user should LOGOFF 
(see LOGOFF command), then LOGON. 

Any other special instructions for CRT users will be noted 
with the JOB being run. 

LOGOFF 

The LOGOFF command returns the terminal to the inactive state 



LOGOFF example: LOGOFF . 



ASMBLR (ASSEMBLE) 

The general assembler, SAPG, translates 980 symbolic assembly 
language into object language acceptable to the 980 computer. 
During pass 1, a symbol table is generated as the source 
program is read. Pass 2 generates the object output and 
program listing using both the source program and the gene- 
rated symbol table. For more details, see: Model 980 
Computer Assembly Language Programmer's Reference Manual, No. 
943013-9701. 

To use the utility ASMBLR: 

EXAMPLE: Source from disc file, object to card punch, listing 
to line printer: 

Hit <ESC> for //. 

KEY IN: // JOB name SYSTEM. 

// RUN ASMBLR FSRC=(userid, filename) D0BJ=CP1 . 



EXAMPLE: Source from cards, no object, listing to mag tape, 
(using mag tape drive 1; with write ring on mag 
tape) . 



KEY IN: 



// JOB name SYSTEM . , 

// RUN ASMBLR DIN=CR1 DOBJ=DUMMY DLST=MT1 . 



ASMBLR (980 ASSEMBLER) JCL 



/REPLACE ASMBLR .ASSEMBLE. 

/EXEC OB J=(l, SYSTEM, ASMBLR) MEM= (300, 5000, 1000) PRTY=(1,15); 

/ TIME=-1 TIME:=TIM MEM:=MEM PRTYiPRI 

/ASSIGN DUMMY DEVICE :=DMSG SHARE 

/ASSIGN 4 DUMMY DEVICE :=DCON SHARE :=SCON 

/ASSIGN 5 DISCI DEVICE :=DSRC FILE:=FSRC BUFFERS=1 

/ASSIGN 6 SYSOUT DEVICE :=DLST FILE:=FLST BUFFERS=1 

/ SHARE :=SLST MAXTRACK=100 

/ASSIGN 7 DISCI DEVICE :=DOBJ FILE:=FOBJ REPLACE :=ROBJ; 

/ ACCESS :=COBJ NEW:=NOBJ ALLOCATE := LOB J 

/ ACCESS=(MY,MY,ANY,ANY) LINKSEQ BUFFERS=1 

/ ALLOCATE=(1,0,64,10) FILE= (USER01,ASMOUT) 

/ASSIGN 16 DISCI FILE= (TEMP,SCRL) NEW BUFFERS-1 LINKSEQ; 

/ ACCESS=(ANY,ANY,ANY,ANY) ALLOCATE=(5,300,256,50) 

/END 



.SYSTEM MESSAGE 
.CONTROL/MESSAGE 
SOURCE INPUT 
.SOURCE LI ST/ ERROR 



OBJECT OUTPUT 



SOURCE SCRATCH 



ASMCND (ASSEMBLE WITH CONCORDANCE) 

This utility is the same as ASMBLR except that a concor- 
dance is also generated. 

EXAMPLE: Source from disc file, object to card punch, and 
assembly listing to line printer. 

Hit <ESC> for //. 

KEY IN: 

// JOB name SYSTEM. . 

// RUN ASMCND FSRC=(userid , filename) D0BJ=CP1 . 

EXAMPLE: Source from cards, object to card punch, and 
assembly listing to line printer. 



KEY IN: 



// JOB name SYSTEM, i 

//RUN ASMCND DIN=CR1 D0BJ=CP1 . 

y 



ASMCND (980 ASSEMBLER WITH CONCORDANCE) JCL 



/REPLACE ASMCND 

/EXEC OB J=(l, SYSTEM, ASMBLR) MEM= (300, 5000, 1000) PRTY=(1,15); 

/ TIME=-1 TIME:=TIM MEM:=MEM PRTY:=PRI 

/ASSIGN DUMMY 

/ASSIGN 4 DUMMY DEVICE :=DCON SHARE :=SCON 

/ASSIGN 5 DISCI DEVICE :=DSRC FILE:=FSRC BUFFERS=1 

/ASSIGN 6 SYSOUT DEVICE:=DLST FILE:=FLST BUFFERS=1 

/ SHARE :=SLST MAXTRACK=100 

/ASSIGN 7 DISCI DEVICE :=DOBJ FILE:=FOBJ REPLACE :=ROBJ; 

/ ACCESS :=COBJ NEW:=NOBJ ALLOCATE := LOB J 

/ ACCESS=(ANY,ANY,ANY,ANY) LINKSEQ BUFFERS=1 

/ ALLOCATE=(1,0,64,10) FILE=(USER01,ASMOUT) 

/ASSIGN 16 DISCI FILE=(TEMP,SCRL) NEW BUFFERS=1 LINKSEQ; 

/ ArrPQQ^rAWY amy A\FY ANY^ AT.T.nrATF.= r!^- 300. 256.50'! 

/EXEC 0BJ=(1, SYSTEM, CONCRD) MEM= (3, 15000, 1000) PRTY=(1,15); 

/ TIME=-1 PRTY:=PRI 

/ASSIGN 16 DISCI FILE=(TEMP,SCRL) BUFFERS=1. 

/ASSIGN 6 SYSOUT DEVICE :=DLST BUFFERS=1. 

/END. 



.ASSEMBLE. 



SYSTEM MESSAGE 
CONTROL/MESSAGE 
SOURCE INPUT 
SOURCE LIST/ERROR 



.OBJECT OUTPUT 



SOURCE SCRATCH 



ERROR CODES 



If an error is detected in Pass 1, the message appears 
before the listing. If the error is detected in Pass 2, 
the message is printed adjacent to the source line in 
question. A total number of errors encountered in the 
assembly is given at the end of the listing. 



SAPG ERROR MESSAGES 



MESSAGE 
NUMBER 


MESSAGE 


MEANING (AND CORRECTIVE ACTION) 


1 


FIELD SZ 


Address beyond reach (use @ for extended format) 


2 


UNDF OP 


Undefined operation code (check list of valid op 
codes) 


3 


LONG SYM 


Symbol > 6 characters 


4 


MDF 0/F 


OPD or FRM multiply defined (rename label) 


5 


FRM > 16 


FRM fields contain more than 16 bits i 

I 


6 


CAD > 10 


Address expression > 10 elements 


7 


UNDF SYM 


Symbol not defined (label probably omitted) 


8 


MDF SYM 


Symbol multiply defined (rename labels) 


9 


RE LOG 


A relocation error (use only relocatable label in 
arithmetic expression, or ORG statement can use 
only one relocatable label) 


10 


SY^>I OVF 


Too many symbols have been defined (cut out symbols 
or divide program) 


11 


BAD NUM 


Numeric element not valid (properly define item in 
label or address field) 


12 


IMP R/D 


A REF or DEF symbol has been used improperly (REF 
symbol defined inside and outside the program; DEF 
symbol not defined in the program) 


13 


X RF USE 


A REF symbol has appeared invalidly in an unrelo- 
catable expression 


14 


IXB ERR 


Address mode error (improper use of IXB field) 


15 


OPD ERR 


No such OPD format number 


16 


ADR MODE 


Illegal addressing mode (improperly written address) 



EXAMPLE OF TI 980 HEADER CARD 
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If used, first record of source. 



CPYTPE (COPY TAPE TO TAPE) 

This program copies tape to tape and verifies. It indicates 
the number of files copied and verified on the ASR. Default 
is from MTl to MT2 . 

This example will copy and verify to double EOF. 

To use: Hit <ESC> for //. 

KEY IN: 

// JOB name SYSTEM j 
// RUN CPYTPE . 

Answer to questions on ASR. 

User Mode No. = 134 UID-System Name=SC 
COPY /VERIFY MAG TAPE UTILITY 

Enter 1 to copy & verify; 2 to verify only 1 

'J 

Enter type of copy 

EOM - up to end of medium 
2E0F - up to double end of file 
N - up to and including file N, where N is 
a file number 2E0F 

— J 

When terminated, the program indicates on the ASR: 

PASS ONE COMPLETE: N files copied 
NORMAL TERMINATION: N files verified 

(N = number of files on tape) 



CPYTPE (COPY TAPE TO TAPE) JCL 



/REPLACE CPYTPE. 

/EXEC OB J=(l, SYSTEM, CPYTPE) MEM= (1,> 4100, 1000) MEM:=MEM; 



/ 

/ASSIGN SC 

/ASSIGN 4 SC 

/ASSIGN 5 MTl 

/ASSIGN 7 MT2 

/END 



PRTY=(1,15) TIME=-1 OBJ:=OBJ PRTY:=PRTY 

DEVICE :=DERR 

DEVICE :=DCON FILE:=FCON BUFFERS=1 

DEVICE:=DIN 

DEVICE :=DOUT 



ERRORS 
CONTROL 
INPUT 
OUTPUT 



DXCOPY (FILE COPY UTILITY) 

The DXCOPY utility copies data from any type of file or device 
to any other type file or device. DXCOPY also generates keys 
for key indexed files. 

Listing is defaulted to dummy and DOUT and DIN both are de- 
faulted to DISCI. The default for DCON is dummy which defaults 
DXCOPY to 'SOURCE' as the control parameter. For further in- 
formation on DXCOPY consult section 8.7 of the DX980 General 
Purpose Operating System Programmer's Guide (Manual No. 
943005-9701) 

Hit<ESC>for //. 

* KEY IN: 

// JOB name SYSTEM. , 

// RUN DXCOPY FIN=(userid, filename) DOUT=DUMMY; 

. . DLST=SYSOUT DCON=SC . 

M 

Answer BEEP with: SOURCE NOKEYS (NO PERIOD HERE!) 

// JOB name SYSTEM. . 

// RUN DXCOPY DIN=CR1 D0UT=CP1 DCON=SC. 

BEEP: RELOBJ (NO PERIOD HERE ! ) 



* FROM CRT USE DCON=TERMIO 



1 1 



DXCOPY (FILE COPY UTILITY) JCL 



/REPLACE DXCOPY . GENERAL PURPOSE COPY. 

/EXEC OBJ =(1, SYSTEM, DXCOPY) f-lEM= (300,4000, 1500) PRTY=(1,15); 

/ TIME=-1 PRTY:=PRI MEM:=MEM 

/ASSIGN DUMMY DEVICE :=DMSG 

/ASSIGN 5 DUMMY DEVICE :=DCON FILE:=FCON BUFFERS=i 

/ASSIGN 6 DUMMY DEVICE :=DLST FILE:=FLST BUFFERS=1 

/ MAXTRACK=200 

/ASSIGN 7 DISCI DEVICE :=DOUT FILE:=FOUT REPLACE := ROUT 

/ ACCESS :=COUT KEYLEN:=KOUT ALLOCATE := LOUT 

/ RELREC:=REL INDEXED :=IND LINKSEQ:=LIN 

/ LRECL:=GOUT BUFFERS := BOUT BUFFERS=2 

/ ACCESS=(ANY,ANY,ANY,ANY) KEYLEN=6 

/ ALL0CATE=(1, 0,128, 10) LRECL=64 

/ASSIGN 8 DISCI DEVICE :=DIN FILE:=FIN BUFFERS=1 

/END 



.ERROR MESSAGES 
, CONTROL/MESSAGE 
.LISTING 

OUTPUT 



INPUT 



1 9 



LIST (80/80 LIST) 

Default from cards to line printer, ASCII source. Terminates 
on /*. Hit <ESC> for //. 

KEY IN: 

// JOB name SYSTEM. 

// RUN LIST. ^ 
'J 



Example of List using mag tape input : 

// JOB name SYSTEM. 
//RUN LIST DIN=MT1. 

-^ 

This would use mag tape drive 1 as input, with output to 
line printer. 



1 Q 



LIST (80/80 LIST) JCL 



/REPLACE LIST .LIST CARD TO SYSOUT. 

/EXEC OB J=(l, SYSTEM, DXCOPY) MEM= (300,6000,2000) PRTY=(1.15)j 

/ TIME=-1 MEM:=MEM PRTY:=PRI OBJ:=OBJ 

/ASSIGN DUMMY DEVICE :=DMSG .ERROR MESSAGES 

/ASSIGN 5 DUMMY DEVICE :=DCON .CONTROL/MESSAGE 

/ASSIGN 6 SYSOUT DEVICE :=DLST FILE:=FLST BUFFERS=lj .LISTING 

/ ALLOCATE :=LLIST MAXTRACK=200. 

/ASSIGN 7 DUMMY DEVICE :=DOUT FILE:=FOUT REPLACE := ROUT j .OUTPUT 

' BUFFERS=2 BUFFERS: -BOUT LINKSE'^:=LIN RELREC:=REL' 

/ INDEXED:=IND ACCESS=(ANY,ANY,ANY,ANY) j 

/ ALLOCATE=(1,0,128,10) ALLOCATE := LOUT KEYLEN=6j 

/ KEYLEN:=KOUT LRECL=64 LRECL:=GOUT 

/ASSIGN 8 CRl DEVICE :=DIN FILE:=FIN BUFFERS=1 .INPUT 



LISTINGS ON WIDE PAPER 

Whenever a listing is needed on wide paper (132 col.), first 
switch the log from the Centronics printer by: 

Hit the <ESC> key for //. 

KEY IN: 

// JOB name SYSTEM. . 

// RUN L0G2SC. ^ 
M 

Run the utility desired and after the listing is removed 
from the printer, switch the log back from the ASR to the 
Centronics printer by: 



KEY IN: 

//RUN L0G2LP 



-A 



NOTE: From CRT, the last step would be to key in 
LOGOFF. . 



10 



L0G2SC AND L0G2LP JCL 



/REPLACE L0G2SC. 

/EXEC 0BJ=(1, SYSTEM, CHGLOG) MEM= (30,200,200) PRIV PRTY=(1,1) TIME=-1 

/ASSIGN 1 SC. 

/END. 

/REPLACE L0G2LP. 

/EXEC 0BJ=(1, SYSTEM, CHGLOG) MEM=(30,200,200) PRIV PRTY=(1,1) TIME=-1 

/ASSIGN 1 LP2. 



MANDEL (COPY TAPE TO TAPE) 

This copies from mag tape to mag tape, copying all files to 
double End of File. (If there is not a double EOF, the 
master tape will run off the end of the tape. It must have 
a double EOF). After copying all files, both tapes rewind, 
and the copy is verified. When the copy is verified the tapes 
rewind and unload. A message on the ASR indicates to the 
operator/user to swap the tapes and hit carriage return on 
ASR. The tapes will verify a second time, rewind, unload 
and the Job terminated. The listing off the line printer is 
returned with both tapes. 

On ASR hit< ESC> key for //. 

KEY IN: 

// JOB name SYSTEM. 
// RUN MANDEL. ^ 



NOTE: Swapping the tapes and reverifying is done to ensure 
that the copy can be read on another drive other than 
the one it was written on. 



NOTE: Be sure White RiNG ly UEi^' MASTER TAPE i 



17 



MANDEL (COPY TAPE TO TAPE) JCL 



/REPLACE MANDEL 

/EXEC 0BJ=(1, SYSTEM, CPYTYPE) MEM= (1, >4100, 1000) 



/ 






PRTY:=PRTY. 



/ASSIGN SYSOUT DEVICE :=DALL DEVICE :=DERR. 
/ASSIGN 4 DISCI FILE= (SYSTEM, CPYCNl) BUFFERS=1; 

DEVICE:=DALL FILE:=FCON DEVICE:=DCON. 
/ASSIGN 5 MTl DEVICE :=DIN. 
/ASSIGN 7 MT2 DEVICE :=DOUT. 
/EXEC 0BJ=(1, SYSTEM, SWAP) MEM= (1, 164,150) ; 
/ PRTY=(1,15) TIME=-1 PRTY:=PRTY. 
/ASSIGN SC DEVICE :=DALL DEVICE :=DSWAP 
/EXEC 0BJ=(1, SYSTEM, CPYTPE) MEM=(1, >4100, 1000) ; 
/ PRTY=(1,15) TIME=-1 PRTY:=PRTY, 

/ASSIGN SYSOUT DEVICE :=DALL DEVICE :=DERR 
/ASSIGN 4 DISCI FILE= (SYSTEM, CPYCN2) BUFFERS=1; 
/ DEVICE :=DALL FILE:=FCON DEVICE :=DCON 

/ASSIGN 5 MTl DEVICE :=DIN. 
/ASSIGN 7 MT2 DEVICE :=DOUT. 
/END. 



CONTROL 



SWAP MESSAGE 



ERR LISTING 



CONTROL 



MT960 (980 TO 960 MAG TAPE CONVERSION) 

This is a generalized version of the program "PRP960". 
It generates a mag tape on the DX980 system which is 
in the proper format to serve as input to any 960 system. 



If DCON is left at dummy in the JCL, the default record 
length value is 80 (# bytes/record). 

If DCON is assigned to SC or TERMIO, the operator/user 
specifies a record length (valid length is 1-256 bytes) 

Normal run from disc file to mag tape. 

On ASR hit <ESC> key for //. 



KEY IN 



// Job name System. v 

// RUN MT960 FIN=(userid, filename). 



Note: If using cards as original source into the 
DX980 System, the "!" and " 3" characters 
have opposite Hollerith codes in the 980 
and 960 computer systems. 



MT960 (980 TO 960 MAG TAPE CONVERSION) JCL 



/REPLACE MT960 .980 TO 960 MAG TAPE FORMAT CONVERSION. 
/EXEC 0BJ=(1, SYSTEM, MT960); 

/ MEM:=MEM 

/ PRTY : =PR1 

/ 

/ASSIGN 1 DUMMY DEVICE :=DCON 

/ASSIGN 4 DISCI DEVICE :=DIN: 

/ FILE:=FIN 

/ASSIGN 5 MTI DEVICE :=DOUT 

/END 



MEM=(30,643,1000); 

PRTY=(1,15); 

TIME=-1 



BUFFERS=1 



.OPERATOR'S CONSOLE, 

DATA INPUT. 
,MAG TAPE OUTPUT. 



MULT I (MULTIPLE COPY LISTING PROGRAM) 

This produces multiple copies on the line printer (one after 
another). Each copy begins at the top of the page. 

Default is disc file to line printer. 

Hit<ESC>for //. 

KEY IN: 

// JOB name SYSTEM. . 
* // RUN MULTI FIN=(userid, filename). 



A message is indicated on the ASR asking the operator/user 
"number of copies desired." Respond with a value greater 
than 0, from 1 to 3. 



On CRT KEY IN: 



RUN MULTI FIN=(userid, filename) DCON=TERMIO. . 
(If ITS is running) 



MULTI (MULTIPLE COPY LISTING) JCL 



/REPLACE MULTI .GENERAL PURPOSE MULTIPLE COPY LISTING PROGRAM. 
/EXEC OB J=(l, SYSTEM, DXCOPY) TIME=-lj 

MEM= (300,5000,2000); 

PRTY=(1,15) 

FILE= (SYSTEM, DL 98 OC) ; 
BUFFERS=1 

NEW INDEXED KEYLEN=2; 

FILE= (TEMP, MULTI) 5 

BUFFERS=2- 

ACCESS= (ANY, ANY, ANY, ANY) • 

ALLOCATE= (1,0,128, 200) 

DEVICE :=DIN- 

BUFFERS=2 
I) TIME=-1; 

MEM=(30,400,1000): 



/ 




MEM:=MEMDX 


/ 




PRTY:=PRIDX 


/ASSIGN 





DUMMY DEVICE :=DXMSG 


/ASSIGN 


5 


DISCI DEVICE :=DXCON 


/ 






/ASSIGN 


6 


DUMMY 


/ASSIGN 


7 


DISCI 


/ 






/ 




BUFFERS :=BUFF 


/ 




ACCESS : =ACC 


/ 




ALLOCATE : =ALL 


/ASSIGN 


8 


DISCI 


/ 




FILE:=FIN;, 


/ 




BUFFERS :=BUFF 


/EXEC 




OB J=(l, SYSTEM, Ml 


/ 




MEM:=MEM 


/ 




PRTY:=PRI 


/ASSIGN 


1 


SC DEVICE :=DCON 



PRTY=(1,15) 



/ASSIGN 4 DISCI 

/ BUFFERS := BUFF 

/ASSIGN 6 SYSOUT DEVICE :=DLST3 

/ BUFFERS :=BUFF 

/ FILE:=FLST3 

/ MAXTRACK:=MAXT 

/END 



FILE= (TEMP, MULTI) 5 
BUFFERS=2 

BUFFERS=23 

MAXTRACK=100 



DXCOPY PROGRAM. 
DXCOPY ERRORS. 
"SOURCE NOKEYS" 
COMMAND . 
DXCOPY LISTINGS. 



.ORIGINAL STORAGE. 

.ORIGINAL INPUT. 

.MULTIPLE COPY PROGRAM. 
.OPERATOR'S CONSOLE. 

.BUFFERED INPUT. 



LINE PRINTER OUTPUT. 



OBJSEQ (OBJECT SEQUENCER) 

This program sequences object cards. Default is from card 
reader to card punch. Increments by 1. Increment number 
cannot be changed. No control card needed, but PART NUMBER 
MUST BE SUPPLIED BY USER if needed. The part number can be 
blanks or a 6 digit number. Program terminates on /*. 

If a reply to a device (card reader, card punch, or line 
printer) must be made, the operator must return the ASR 
(SC) to operator's mode by: 

Hold down <CTRL> key and <0> key, then hit <ESC> key for // 
See note for ASR messages. 

The sequenced deck will be punched as follows: 



reproduced as is from original 

blank 

part number 

blank 

sequence numbers with leading zeros 



col 


1 


64 


col 


65 




col 


66 


71 


col 


72 


76 


col 


77 


80 



To run this utility 
Hit <ESC> key for //. 

KEY IN: 



// JOB name SYSTEM .. 
// RUN OBJSEQ . 



INPUT PART NUMBER (6 DIGITS) OR SPACE: 123456 

A 

LOAD DUPLICATE DECK, KEY GO ^ 

OBJECT SEQUENCE - VERIFY COMPLETED 



** SEE NOTE ON NEXT PAGE 



OQ 



OBJSEQ (EXAMPLE USING A DISC FILE AS INPUT, CARDS AS OUTPUT) 

Hit <ESC> key for //. 

KEY IN: 

// JOB name SYSTEM. > 

// RUN OBJSEQ DIN=DISC1 FIN=(userid, filename) . 

A 

Answer part number questions by entering a 6 digit part number 
or blank. Read in duplicate cards after punched for verifi- 
cation when indicated by message on ASR. 



NOTE: If any replies to a device (card reader, card punch 
or line printer) have been made during the job, to 
get the messages, the operator must return the SC to 
user mode by: 

Hold down <CTRL> key and hit U on console keyboard. 



OBJSEQ (OBJECT SEQUENCER) JCL 



/REPLACE OBJSEQ .980 OBJECT CARD SEQUENCING (WITH OPTIONAL PART #) . 



/EXEC 0BJ=(1, SYSTEM, OBJSEQ) 

/ 

/ 

/ 

/ASSIGN 4 SC DEVICE :=DMSG 

/ASSIGN 5 CRl DEVICE :=DIN 

/ASSIGN 6 CRl DEVICE :=DVER 

/ASSIGN 7 CPl DEVICE :=DOUT 

/ASSIGN >16 DISCI 

/ 

/ 

/ 

/ 

/ 

/END 



MEM= (30, 1000, 1000); 
PRTY=(1,15) PRTY:=PRI; 
TIME=-1 MEM:=MEM; 
OBJ:=OBJ 

FILE:=FIN BUFFERS=1 
FILE:=FVER BUFFERS=1 
FILE:=FOUT BUFFERS==1 
F I LE= (TEMP, SYSTEM); 
BUFFERS=1 NEW; 
ACCESS=(ANY,ANY,ANY,ANY) ; 
LINKSEQ ALLOCATE :=ALL; 
ALLOCATE=(1,0,32,10) 



.OPERATOR ANSWERS 
.ORIGINAL OBJECT INPUT 
.INPUT FOR VERIFICATION 
.SEQUENCED OUTPUT 



SCRATCH FOR STORAGE 



9,B 



SEQNCR (SOURCE SEQUENCER) 

This program sequences source records. Default is from cards 
to cards. Terminates on /*. Control card is supplied by the 
user. If a reply to a device (card reader, card punch, or 
line printer) must be made, the operator must return the ASR 
(SC) to operator's mode by: 

Hold down < CTRL > key and <0> key, then hit < ESC > key for //. 
See note for ASR messages. 

This program increments by 10. The beginning number can be 
changed, but the increment of 10 cannot be changed. 

To use the sequencer: Hit <ESC> for //. 

KEY IN: 

//JOB name SYSTEM. . 



// RUN SEQNCR DMES=SC. 



Answer questions on ASR. 



ENTER CONTROL RECORD ON LUN 4, HIT C/R, 
READY SOURCE, HIT C/R , 
LOAD DUPLICATE DECK, HIT C/R . 
* RE-READ DUPLICATE DECK (YE/NA) ? N (Y if re-verification is wanted) 

ERRORS : 

If any cards are mis-punched, a duplicate card is punched. 
Replace the mis-punched one with the duplicate. When the deck 
has all been read in, a message on the ASR asks if the opera- 
tor/user wants to re-verify. *Answer with yes ( Y). or no (N) . 
If yes, reload the duplicate deck in again, if no, JOB termi- 
nates. 



NOTE: If any replies to a device (card reader, card punch or 
line printer) have been made during the job, to get the 
control messages, the operator must : 

Hold down <CTRL> key and hit U on console keyboard. 



Using SEQNCR to sequence from a disc file: 

// JOB name SYSTEM. 

// RUN SEQNCR DMES=SC DSRC=DISC1 FSRC=(userid, filename) . . 

This program does not put a /* out after punching the sequenced 
deck. Because of this, the verify step will not terminate 
normally. The operator must put a /* card in the card reader 
to terminate the Job after all of the duplicate deck has read 
in. 

The last record of the file will be punched twice, so the 
second record should be discarded. 

The control card is needed for sequencing from any device. 



EXAMPLE OF CONTROL CARD FOR SOURCE SEQUENCER 



BEGINNING # 



PART # - 



1^3456 dOOOflOlT 



^ 



000 

3 4 '.' 

1 1 1 

222 
333 

444 
555 
6 6 6 
77/ 

8e8 



6 7 

1 1 



77 



!S!5C9 



\^ 



OOOOOOOOOOOOaOOOOOOGG 0000000000000000000090000000000000000000 

10 ' ■ 1? 13 14 15 16 17 1U3 ci .'i ?; ^ M zj 26 27 ?S 28?;!:, « 3-3^5 3ti 37 -H V 40 4) -IJ 4)1 1i 4"; 4i. 4/ 41 <a 30 51 62 53 54 n!i 56 57 58 S? GO 61 K'l E3 64 S5 66 67 Gh 59 70 

1 1 1 1 m 11 11 1 1 1 1 1 1 11 1 1 nil 1 i 11 1 1 n 1 11 n 1 1 1 11 1 1 m 1 1 1 nil I 1111 
2 2 2 2 2 n 2 2 2 2 2 ? 2 2 2 n 2 2 2 2 2 2 2 2 2 2 2 2 2 :» 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 222222 
3333333333333333333333333333333333333333333333333333333333 33333 

44444444444444444444444444444444441144444444444444444444444 4444 

5 5 5 5 5 5 D 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 J) 5 5 5 b 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 

6 G G 6 6 6 6 B G B n; 5 n 6 6 G B 8 6 6 ^ 6 G b B 6 S B E e 6 6 6 6 e 6 6 6 r, 6 6 e S 5 6 6 S C 6 e C G B f; 6 e f; 6 6 6 6 

7 7 7 7 7 7 7 7 7 /■/ 7 7 7 n 7 7 7 7 7 / M 7 7 7 7 7 7 7 7 7 < 7 7 7 7 7 7 7 7 7 7 / 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 

8 ? B 8 H 8 8 e 8 e 8 8 8 8 e 8 3 3 8 3 3 3 8 8 e B 8 8 8 U 8 8 8 8 8 e 8 e 8 8 8 6 8 8 8 8 8 8 1) 8 8 8 8 8 8 8 8 8 8 !i 
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! 74 75 76 77 /t, 7:,' tiO 
11 11 1 1 

7122222 
3333333 

4 4 4 4 4 4 4 
5555555 
GfiBBBBC 
11 in 11 

8 8 8 ri ? ii 
in 3 '^ 'I ^ 9 

!i': -6 ■■/ 'c j:i^O 



SEQUENCE EXAMPLE 



JR 






lii}IEi3itii(-«»:%jiEJiE«)i^)Ki«)K«XJK«3iE»3i(9iEjiHi« YDJJR SOURCE DECK 



1^3456 OOOOOdlON 



1 1 1 
222 
333 

444 

^5: 

660 
7 7 / 



II 

4 5 6 7 
11 11 

2 2 2 2 

3 3 33 

4 4 4 4 



G n G 

5 \-.]\ 12 13 14 
1 1 



CO 

M61i 



8 IS 20/ 
1 1 



00 

J2-3: 



C 

25 26 27 28 29 30 31 32 33 34 .■5 36 37 3>j 39 40 ;i 4/ 43 44 45 46 47 4S 49 '^0 5' 52 5J 54 55 56 57 56 59 60 61 62 63 64 65 65 R7 68 1 



0000- 

70 71 72 U i 

i i n i 11 n 1 111111111111111111111111111111111111111111111111111111111111 



/; 78 79 80 



( 



99^ 



7777 



222222 
333333 
444444 
555555 
6 6 6 6 S G 
777777 

1 r (' rj 
3 L* 



38 



q Q Q 



1-, ■? 



J J . : i a 
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■J 

d J 

444 

c s c; 

655 
7 77 
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3333 

4 4 4 
5 5? 
6u 6 
i777 

&i18 
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3333 
4 4 4 4 
5555 
fiOGC 
777/ 

eeu 

9 y u H 

73 7.17:75 



2222 
3333 

4 4^4 

5 555 
65 r*^ 
777/ 
5 88 8 
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33 



n 
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33 
44 
55 
66 
77 



99 
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SEQNCR (SOURCE SEQUENCER) JCL 



/REPLACE SEQNCR. 

/EXEC 0BJ=(1, SYSTEM, SEQNCR) MEM= (3,1000, 1000) PRTY=(1,15) TIME=-1 MEM:=MEM; 

/ PRTY:=PRI 

/ASSIGN DUMMY DEVICE :=DMES 

/ASSIGN 4 CRl DEVICE :=DCON FILE:=FCON BUFFERS=1 

/ASSIGN 5 CRl DEVICE:=DSRC FILE:=FSRC BUFFERS=1 

/ASSIGN 6 CPl DEVICE :=DCOUT 

/ASSIGN 7 CPl DEVICE :=DOUT 

/ASSIGN 8 DISCI FILE= (TEMP,SCRL) NEW BUFFERS=1 LINKSEQ; 

I AL;L;tib5=(AJNI ,AJNI ,A1NI ,A1\I J AbLiUUAl n= i^i , oUu, iioD, ouuj 

/ASSIGN 9 CRl DEVICE :=NSRC 
/END 



VERIFY (RECORD BY RECORD VERIFICATION PROGRAM) 

Default run command takes both original and duplicate files from 
the card reader, lists at most 10 bad records, and assumes in- 
put is OBJECT. Gives a listing with a total of records investi- 
gated, and satisfactory verification noted when all records match 

Operator to return listing with job. 

All records are 80 bytes. 

To use hit <ESC> for //. 

(FOR OBJECT) Key in: // JOB name SYSTEM .j 

// RUN VERIFY . J 

Answer beep with: DATA NOKEYS (DO NOT PUT A PERIOD HERE!) 

To have all errors detected and listed: 

(OBJECT) // JOB name SYSTEM ., 

//RUN VERIFY DERR=CR1.. 

j2 

Answer beep with: DATA NOKEYS ^ (NO PERIOD HERE!) 

FOR SOURCE: 

// JOB name SYSTEM .\ 
// RUN VERIFY ASCII=CR1 .\ 

Answer beep with: SOURCE NOKEYS \ (NO PERIOD HERE!) 

This example lists 10 records. 



NOTE: DERR (LUNO 1) is defaulted to dummy. This causes the 

program to automatically terminate after 10 errors. If 
LUNO 1 is assigned to any other device other than dummy, 
all errors are listed. DERR may be assigned to any device 
since no actual I/O is executed with DERR. 

ASCII (LUNO 2) is used to indicate whether the records 
are of Binary or ASCII coding. If left at "Dummy" input 
is binary. If ASCII is assigned to some device other 
than DUMMY, input is executed using the "READ ASCII" 
command. (Default is to DUMMY.) 

The DXCOPY utility is first executed to buffer the 
"original" to a temporary file. This permits verifying 
inputs from the same device, such as the card reader. If 
cards are to be used as input, both the original and dupli- 
cate decks must end with /*. 



QO 



VERIFY (RECORD-BY-RECORD VERIFICATION) JCL 



/REPLACE VERIFY 

/EXEC 

/ 

/ 

/ASSIGN DUMMY 

/ASSIGN 5 SC 

/ASSIGN 6 DUMMY 

/ASSIGN 7 DISCI 

/ 

/ 

/ 

/ 

/ 

/ASSIGN 8 CRl 

/ 



.RECORD -BY -RECORD VERIFICATION PROGRAM, 
0BJ=(1, SYSTEM, DXCOPY) TIME=-1; 



MEM:=MEMDX 
PRTY:=PRIDX 
DEVICE :=DXMSG 
DEVICE :=DCON 

BUFFERS :=BUFF 



DEVICE :=DOR; 
FILE:=FORG; 



I 
/EXEC 

/ 

/ 

/ASSIGN 

/ASSIGN 

/ASSIGN 

/ASSIGN 

/ 

/ 

/ 

/ASSIGN 

I 
I 
/END 



OBJ= (1 , SYSTEM, VERIFY) 
PRTY:=PRI 
MEM:=MEM 

1 DUMMY DEVICE :=DERR 

2 DUMMY DEVICE:=ASCII 
6 SYSOUT DEVICE :=DLST 
8 DISCI BUFFERS :=BUFF 



9 CRl DEVICE :=DDUP; 
FILE:=FDUP; 
BUFFERS :=BUFF 



MEM= (300, 5000, 2000); 
PRTY=(1,15) .DXCOPY 
.DXCOPY ERRORS. 
.DXCOPY COMMANDS. 
.DXCOPY LISTINGS. 
BUFFERS=2; 
NEW KEYLEN=2; 
INDEXED; 

FILE= (TEMP, VERIFY); 
ACCESS=(ANY,ANY,ANY,ANY) ; 
ALLOCATE= (1,0,128, 200) 



/rrurvo— ii 



TIME=-1;. VERIFY PROG. 

PRTY=(1,15); 

MEM= (30, 2000, 2000) 

.STOP AFTER 10 ERRORS. 

.ASCII INPUT IF ASSIGNED. 

.ERROR LISTINGS. 

BUFFERS=2; 

FILE= (TEMP, VERIFY); 

ACCESS= (ANY,ANY,ANY,A]^JY) ; 

ALLOCATE^ (1,0, 128,200) 



BUFFERS=2 



STORAGE 



DUPLICATE INPUT 



APPENDEX A 
DEVICE REPLIES 



CARD READER 



If the card reader stops before it is supposed to, there 
has been either a data error, a read error, or the Job 
has been rolled. 

1. If there is a data error, a message is printed on the 
ASR (SC). In that case, re-read the last card read and 
reply to the card reader. (must be from ASR) 

2. If there is a read check error, (the read check LT on 
card reader will be on), re-read the last card and reply 
to the card reader message indicated on the ASR (SC). 

Reply to the card reader by: 

Hit <ESC> for //. 
KEY IN: 

// RE CRl Y. (SEE NOTE) 

Now it will read more cards. 

3. To see if your job has been rolled, get status: 



KEY IN 



//ST. 
OR: // DS n. n=JOB number 



-J 



(SEE APPENDIX B) 



NOTE: Reply to terminate the job if needed at this time by 

KEY IN: 

// RE CRl N. 



CARD PUNCH 

What to do when it stops. 

Is it out of cards? If so, put more in, go to clear CP. 

Has the Job been rolled? Check STATUS to see if it has 
been rolled. Hit <ESC> on ASR for //. 

KEY IN: 

//ST. \ for status of all Jobs in the system. 

OR: // PS n . for detailed status of a Job if the 
'^ Job number is known. n=Job number. 
(SEE APPENDIX B) 

Did you have a data error? Look for message on ASR. Clear 
card punch. Check last card punched before replying to CP. 

CLEAR CARD PUNCH 

1. HIT' <0N LINE> BUTTON 

2. HIT <RESET> 

3. HIT <CLEAR> 

4. REPEAT STEPS 2 AND 3 

5. HIT <0N LINE> 

NOTE: The <0N LINE> indicator should be the only button lit. 
If any other buttons are lit, or the <0N LINE> button 
is blinking, repeat steps 1-5. If there are still any 
others on, get help. 



LINE PRINTER PROBLEMS 

To stop a bad listing on the line printer, or if the paper jams 

FIRST STOP THE LINE PRINTER FROM PRINTING. 

TURN OFF LINE, WAIT FOR MESSAGE TO COME UP ON ASR (LPl OFF 
LINE), TURN ON LINE, THEN HIT ESCAPE KEY (Reply must be 
from ASR only) for //. 

To continue the same listing: 

KEY IN: 

// BOS SKIP N . (-N for number of lines to back 
up to; N for number of lines to Skip forward on 
listing. The position is relative to the line 
being printed when BOS acts on the received BOS 
command. Backspacing a number of lines greater 
than the number already printed from the data 
set by using the SKIP option is equivalent to the 
RESTART option; skipping ahead for more lines 
than the lines remaining to be printed is equi- 
valent to the CANCEL option. 

An example of skipping forward 100 lines would be: 

// BOS SKIP loo p 
// RE LPl YES ^ 

An example of backspacing 100 lines would be: 



// BOS SKIP -loo p 
// RE LPl YES Q 



A3 



To begin a listing over (page 1) instead of skipping lines, 

KEY IN: 

//BOS RESTART. , 

-J 

I f^Y. LPl YES. 

-J 

This command will start at page one of the listing currently 
on the line printer. If the listing in question has printed 
the last banner, the job has been deleted in the spooler and 
the Job will have to be re-run. 

To cancel the current listing: 

KEY IN: 

// BOS CANCEL. 
// RE LPl YES. 

This will cancel the listing being printed now, and will 
begin the next listing on the spooler. When this is done, 
the listing will be deleted and the Job is gone. 
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APPENDIX B 
STATUS 



STATUS 



The status command is used to determine the status of Jobs 
being run in the system. Look for the Job name keyed in at 
the time a Job was entered, next to the name is the job number 

Status example: 



// STATUS. The following is displayed on the ASR or CRT, 



DX980 







RUNNING 





Y 


ITS 


1 




RUNNING 


1 


Y 


BOS 


2 




RUNNING 


2 


N 


RRA 


68 




RUNNING 


14 


N 


MIKEB 


60 




ROLLED 


15 


N 


JOB NO 


60 


STEPS 


2 - 2 


READY 




END 1 


OF DISPLAY 









. .LL EX UL. . .TIME USED. 

0000 5C52 6FDA 2190 1934 
7028 9475 A091 200 802 
A0B6 A3E4 A6D2 2394 75 
A6E5 CBE2 DF6A 29 575 

A6E2 D5C2 DD92 410 945 



n i^et ailed status of a pfcirticalar Job can be done. 



Example. of the job named MIKEB in the above status example 
//PS 60. 



-j2 



JOB N0= 60 IS RUNNING AT PRIORITY 15 

USER TASK ID= 0000-RUNNING 
END OF DISPLAY 

A Job can be cancelled by: 



//CA 60. 



JOB NUMBER 60 CANCELLED 



This cancelled Job number 60, named MIKEB. A Job cannot be 
cancelled if it is rolled. It must be running or ready, :to be 
cancelled. Any job can be cancelled from the system console, 
but if the user wishes to cancel a job from a CRT, the job 
must have been entered on that CRT. 
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APPENDIX 



DX980 ERROR CODES 



DX98B ERROR CODES 
AS OF Hl/13/77 

i -OUT OF PARTITION REFERENCE IMPLIED BY PARAMETERS OF AN SVC CALU 

2 -JOB EXTENSinw AREA TOO SMALL 

4 -NO SPACE IN DSCA 

5 -ILLEGAL NUMRER OF PARAMETERS IN SVC LIST 

6 -I/O ATTEMPTED ON NON, ASSIGNED LUNO 

7 -I/O ATTEMPTED WITHOUT OPEN 

8 -DUPLICATE OPEN ON SAME LUND 

9 -WAIT CONTROL LIST ERROR FOUND ON USER SUSPEND 
10 -PRIORITY ERROR 

U -CPU TIME EXCEEDED 

12 -ILLEGAL USER POST 

13 -ILLEGAL INSTRUCTION 

14 -A NON-EXISTENT SVC WAS ISSUED 

15 -USER HAS REQUESTED ACCESS TO A PRIVILEGED SVC 

16 -ILLEGAL SVC ARGUMENT -OUTSIDE USER PARTITION 

17 -PTR TO SVC ARG LIST OUTSIDE USER PARTITION 

18 -INVALID DEVICE I 

19 -NO SPACE IN PCS 

20 -NO SYSTEM LUNO ■ 141 

21 -USER FILE DIRECTORY OVERFLOW 

22 -MASTER FILE DIRECTORY OVERFLOW 

23 -PREVIOUSLY DEFINED USER ID 

24 -ILLEGAL USER ID 

25 -ATTEMPT TO DELETE SYSTEM DISC MFD 

26 -INVALID ABNORMAL JOB TERMINATION CODE 

27 -UNDEFINED FILE 

26 -UNDEFINED USER ID 

29 -ATTEMPT TO REPLACE PREV ASSIGNED FILE 

30 -PREVIOUSLY DEFINED FILE 

31 •INVALID FILE TYPE OR PHYSICAL RECORD LENGTH > HAX SIZE ALLOWED 

32 -INSUFFICIENT TRK SPACE ON DEFINE 

33 -INSUFF, CONTIG, TRK SPACE ON DEFINE 

34 -EXCEEDED DISC SIZE ON DEFINE 

35 -ZERO KEY LENGTH FOR DEFINE 

36 -READY JS8 FILE BAD 

37 -ATTEMPT TO DELETE A SHARED FILE 

38 -INVALID FILE DISPOSITION CODE 

39 -DEVICE OFFLINE 

40 -ATTEMPT TO SHARE UNSHARABLE DEVICE 

At —ATTCMDT Tn OLtAOC Qi nr-^rrnt k r- ^ . « •• v> 

"•4 «"»"iiui'ri ] \j OHHnr- OUUU'NC.U UCViLC 

42 -ATTEMPT TO ASSIGN EXCL A SHARED PASSED RESOURCE 

43 -OPERATOR CANCELLATION 

44 -TOO MANY JOB STEPS 

45 -INVALID JCB 

46 -INVALID INPUT LOT 

47 -JOB NO/STEP NO, NOT IN SYSTEM 
46 -JOB NAME NOT IN SYSTEM 

49 -ATTEMPT TO ILLEGALLY ACCESS FILE 

50 -POTENTIAL RESOURCE DEADLOCK DUE TO INCOMPLETE PASSING 

51 -INVALID JS8 SIZE SPECIFIED 

52 -ATTEMPT TO OEaSSIGN UNASSIGNED LUNO 

53 -TOO MANY JOB STEPS (>15) IN ONE JOB STRING 

54 -PARENT JOB ENDED BEFORE JOB STRING STARTED 

55 JM-LOAD MODULE TOO BIG FOR SPECIFIED USER SPACE 

56 JM-NO JOB INITIATION SYSTEM TASK FOR JOB 

57 JM-LOAD MODULE LOAD NO GOOD 

58 JM-ATTEHPT TO ASSIGN TO DISC DIRECTLY 

59 JM-DEASSIGNMENT OF OPEN DEVICE/FILE 



Cl 



6a SUOM, SYSTEM OUTPUT Q'JEUE OVERFLOU 

61 SOOM-TDO MANY OUTPUT FILES 

62 -MEMORY PARITY ERROR 

^3 -MEMORY PROTECT ERROR - AnOHESSlMG ERROR 

64 •PRIVILEGEn INSTRUCTION VIOLATION 

e.-^ -RESOURCE STACK OVERFLOW 

66 -BYTE RELOCATION ADOR BAD IN LOAD MODULE 

67 -MIP NUMBER BAD FDR LOAD OR LOADS 

69 -LOAD OR LOAOR EXTENDS BEYOND USER MEM 

7^ BPS-CAN NOT ALLOCATE INPUT DEVICE (REASON-MEMORY OR DEVICE NOT AVAILABLE) 

71 BPS-READ ERROR ON INPUT DEVICE 

728PS0C-ILLEGAL OR MISSING "JOB" COMMAND 

73BPS0C-ILLEGAL RUN COMMAND 

74 BPS"ILLEGAL DATA COMMAND 

75 8PS-T00 MANY INPUT DATA FILE 

78 8PS-N0 OF INPUT DATA FILES UNMATCHED WITH NO OF ASSIGNED INPUT DATA FILES 

77 BPS-DATA COMMAND UNMATCHED WITH INPUT ASSIGNMENTS 

78 BPS-OUTPUT QUEUE ERROR • REINITIALIZE QUEUE TO USE BOS 
8P1 JM-JOBSTRING/STEP NOT IN ROLL FILE DIRECTORY 

Bl JM-NO SPACE AVAILABLE IN ROLL FILE 

82 JM-INSUFFICIENT ROLLABLE MEMORY 

83 JM-RULL PERFORMED NORMALLY 

84 JM-ROLL FILE CLOBBERED 

flS BPS-DATA ERROR ON LINE PRINTER 

86 BPS-END OF FILE ENCOUNTERED WHILE SKIPPING RECORDS 

87 JM-REQUE3T FOR MORE MEMORY THAN IN FREE MEMORY 

88 JM-DEVICE/FILE REQUESTED AT RUN TIME NOT AVAILABLE 
80 JM-INVALID JOB STEP NUMBER IN JS8 

90 -ILLEGAL NUMBER INPUT 

91 -ILLEGAL COMMAND 

92 JM-TOO MANY JOBS IN THE SYSTEM 

93 -LUNO LOT NOT FOUND 

94 -NOT A RR FILE 

9f> JCL-USER-IO SPECIFIED FOR PROCEDURE LIBRARY DOES NOT EXIT 

96 JCL-PROCEDURE LIB»APy DOES NOT EXIST UNDER SPECIFIED USER-ID 

97 JCL-USEK CANfT GAIN ACCESS TO PROCEDURE LIBRARY BECAUSE OF INTEGRITY CODE 
yn JCL-SPECIFIED PROCEDURE DOES NOT EXIST IN PROCEDURE LIBRARY 

99 JCL-HARDWARE FAILURE WHILE ATTEMPTING READ FROM SPECIFIED PROCEDURE LIB 

100 JM-ATTEMPTED TO USE FILE OF RESTRICTED USER ID 

1^1 OC-MARDwARE I/O ERROR IN OP, COMMUNICATIONS 

1P2 OC-INVALIO MESSAGE ID 

15^3 UC-INVALID OPERAND IN OP .COMMUNICATIONS 

IP4 nC-lNVALID ARGUMENT LIST IN OP , COMMUNICATIONS 

105 UC-INVALIO JOB NUMBER PASSED IN OP , COMMUNICATIONS 

106 OC-ATTEMPT TO OFFLINE SYSTEM DISC OR SYSTEM CONSOLE 
1P7 nc-NO SPACE IN DSCA OR JEA 

IPS OC-INVALIO OP, COMMUNICATIONS COMMAND 

1P9 nC-JOH NUMBER NOT FOUND BY OP, CUMMUNIC ATIONS 

llfi OC-IN OJCBPR, INVALID SIZE REQUIRED FOR '//JOB' JSB 

111 OC-INVALID NUMBER USED FOR SKIP COMMAND TO BATCH OUTPUT SPOOLER 

112 OC-UNDEFINED COMMAND GIVEN TO BATCH OUTPUT SPOOLER 

113 OC-ATTEMPT TO CANCEL A ROLLED JOB 

114 OC-ILLEGAL COMMAND pOR RESERVE OPERATOR COMMUNICATIONS 
2tll lO-DEVICE NOT READY 

202 lO-CONTROLLER ERROR 

203 IO-OATa error 

2H4 ID-CONTROLLER BUSY ERROR 

2P(5 lO-wRiTE PROTECT ERROR 

206 lO-EOR ERROR 

2«7 lO-REAO-AFTER-WRITE ERROR 

208 lO-OEVlCE OFFLINE 

2(«9 lO-lLLEGAL OP-CODE 

210 lO-DEVICE TIMEOUT (DEVICE DID NOT RESPOND) 
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233 


FH« 


234 


fMm 


233 


FM- 


236 


FM, 


237 


FM. 


238 


FM^ 


239 


FM- 


24? 


FH- 


241 


FM- 


243 


FM- 


249 


FM- 


25P! 


FH- 


251 


FM^ 


252 


FMm 


234 


FM, 


256 


FM* 


257 


FM- 


238 


FM* 


401 


CSCN- 


4912 


CSCN* 


403 


C3CN- 


404 


CSCN- 


409 


CSCNi. 


406 


CSCN. 


4i^7 


CSCN- 


408 


CSCN- 


409 


CSCN- 


410 


CSCN- 


411 


CSCN- 


412 


ITS-i 


413 


C3CN-I 


414 


CSCN-I 


413 


CSCN-I 


416 


C5CN-: 


417 


CSCN-l 


418 


CSCN-i 


419 


CSCN-, 


420 


JCL-I 


421 


JCL-, 


422 


JCL-I 


423 


JCL-I 


424 


JCL-i 


425 


JCL-i 


426 


JCL-I 


427 


JCL-I 


428 


JCL-I 


429 


JCL-I 


430 


JCL-I 


431 


JCL- 


433 


JCL-i 


434 


JCL- 


435 


JCL-i 


436 


JCL- 


437 


JCL- 


439 


JCL- 


443 


JCL-. 


444 


JCL-, 


445 


JCL. 


446 


JCL-' 


447 


JCL-' 


446 


JCL-' 


449 


JCL-' 


450 


JCL-I 



NO SPACE AVAILAf^LE 
FILE FULL I/O ERROR 
ATTEMPTED WRITE, LO 
HARDWARE FAILURE ON 
INDEX, REPLACE ATTE 
EXISTING KEY FOUND 
INDEX, WRITE/REPLAC 
INDEX, REPLACE ATTE 
INDEX, REPLACE ATTE 
INDEX, REL-REC, NO 
INVALID FILE TYPE ( 
INSUFFICIENT TRACKS 
INSUFFICIENT CONTIG 
ALLOCATION EXCEEDS 
UNABLE TO ALLOCATE 
INSUFFICIENT fJUMBER 
OPCODE IS EITHER NQ 
ACCESS VIOLATION, I 
OVERFLOW OF KEYWORD 
OVERFLOW OF PACKED 
R.H.S, OF EXPRESSIO 
ILLEGAL EXPRESSION 
MISSING OELIMETER A 
NUMBER 13 LARGER TH 
OPERAND STARTS WITH 
ILLEGAL DIGIT IN DE 
MISSING DELIMTER BE 
MISSING OELIMETER 8 
ILLEGAL CHARACTER P 
RUN COMMAND DOES NO 
MISSING EQUAL SIGN 
RIGHT HAND SIDE OF 
MORE THAN ONE ■ SIG 
SIZE OF PACKED STRI 
UPPER BOUND ON KEYW 
NUMBER OF RESERVED 
STARTING COLUMN FOR 
FOR A NEW FILE, USE 
JSB MUST CONTAIN DE 
DEVICE INDEX MUST B 
PHYSICAL R.L, < KEY 
FILE HAS BAD ACCESS 
BOTH 'DELETE' H, 'PA 
LOGICAL R.L, > PHYS 
LOGICAL R.L, A MULT 
DEVICE NOT SPECIFIE 
USER ID NOT SPECIFI 
FILE NAME NOT SPtCI 
ILLEGAL FILE NAME S 
*» PRIORITY LEVELS > 
JOB STEP PRIORITY * 
OBJ, VOLUMN ID IS > 
TC8 STACK SIZE < 1 
ILLEGAL COMMAND AFT 
TIME LIMIT < 1 5EC0 
M PRIORITY LEVELS ♦ 

JOB Extension size 

-INVALID MEMORY PAR 
VOL USER ID NOT INJ 
VOLUHN FILE NOT INI 
VOL USER ID OR FILE 
VOL PASSWORD > 4 CH 
WRONG » OF OPERANDS 



ON DISC VOLUME 



GICAL 

DISC 
MPTEO 
ON ' W 
E ATT 
MPTED 
MPTED 
KEY A 
NON^E 

FOR 
UOUS 
DISC 
BUFFE 

OF 8 
N-EXI 
NTEGR 

AREA 
STRIN 
N OR 
SUBSC 
FTER 
AN 16 

ILLE 
CIMAL 
TWEEN 
ETWEE 
RECEE 
T CON 
IN AS 
ASSIG 
N IN 
NG < 
ORD A 
LABEL 

SCAN 
R DIR 
VICE 
E <■ 
• LENG 

CODE 
SS' S 
ICAL 
IPLE 
OR 
ED 

FIED 
PECIF 

31 

31 

ac' 

WORD 
ER '0 
ND 

JOB 
<n TC 
AMETE 
TIALI 
TIALI 

NAME 
ARS 

ON T 



RECORD >■ PHYSICAL RECORD ♦ OVERHEAD 

VOLUME 

QN NON-EXISTING KEY 
RITE' OP-CODE --OPERATION NOT PERFORMED 
EMPTED ON NON-KEYED RECORD 

ON KEYED RECORD 

ON NULL DATA CNON-EXISTCNT) 
FTER SEARCH 
XISTENT) 
ALLOCATION 

TRACKS LEFT ON DISC VOLUME 
VOLUME CAPACITY 

R3 BECAUSE OF JOB EXTENSION SI2C 
UFFERS FOR ATTEMPTED OPERATION 
STENT OR ILLEGAL 
ITY ERROR 

G STORAGE 
TERM MISSING 
RIPT 
COMMAND ID 

BITS 
GAL CHARACTER 

NUMBER 

OPERANDS 
N SUBSCRIPTS 
OS COMMAND 

TAIN A LABEL OR AN EXPRESSION 
SI6NMENT 
NMENT MISSING 
EXPRESSION 
CHARACTERS 
REA < 1 
8 < 

NOT IN RANGE (0179) 
ECTORY NAME DIFFERS" FROM CURRENT USER 
INDEX, NOT THE POT ADDRESS 
255 
TH ♦ 14 

VALUE 
PECIFIEO 
R.L. 
OF 32 
INCORRECTLY SPECIFIED 



lED (UFO & MFD ARE NOT VALID) 

R < 1 

R < 1 

R < 1 

ELETE' 

STEP PRIORITY IS > 32 OR < I 
B STACK SIZE ♦ 15 WORDS 
R 

ZED 
ZED 
> 6 CHARS 

HE RIGHT SIDE OF AN EXPRESSION 
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451 

452 

453 

454 

456 

457 

45fi 

459 

460 

461 

462 

465 

464 

465 

456 

467 

468 

469 

47H 

471 

475 

476 

477 

478 

479 

48E^ 

461 

49PI 

491 

492 

501 

505 

51C" 

511 

912 

520 

521 

522 

523 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 
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JCL- 
JCU- 
JCL- 
JCL- 
JCL- 
JCL- 
JCL- 
JCL- 
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JCL- 
JCL- 
JCL- 
JCL- 

JCL- 

JCL" 

JCL- 

JCL- 

JCL- 

JCL- 

JCL- 

JCL- 

JCL- 

JCL- 

JCL- 

JCL- 

JCL- 

JCL- 

JCL- 

JCL- 

JCL- 

JCL- 

JCL" 

JCL- 

JCL- 

JCL- 

JCL- 

JCL- 

JCL- 

JCL- 

JCL- 

JCL- 

JCL* 

JCL- 

JCL 

JCL- 

JCL- 

JCL- 

JCL- 



■OPEWAMD IS HJDT A LABEL OR A SUBSCWIPTED EXPRESSION 

.OPERAND ON THE RIRHT SIDE IS NOT A LABEL OR A NUMBER 

'BAD DEVICE NAME 

■BLOCK SIZE < 1 

'REDEFINITION OF LUNO IN JOBSTEP 

'PASSWORD > 4 CHARACTERS 

■USER ID OR FILE NAME > 6 CHARACTERS 

'NUMBER BUFFERS < 1 

RE-INITIALIZATION OF JSB ITEM 

BAD LABEL FOR ACCESS CODE 

INITIAL TRACKS < 1 

FIRST TRACK ADDRESS < 

PHYSICAL RECORD LENGTH < 32 

PHYSICAL R.L. NOT MULTIPLE OF 32 

MAX TRACKS < (INITIAL OR 1) 

LOGICAL RECORD LENGTH < { 

LUNO NUMBER NOT IN RANGE (^ TO 254 

KEY LENGTH NOT IN RANGE 1 TO 30 

OPERAND DOESNfT START WITH LABEL 

KEYNAME ON THE LEFT SIDE OF AN EXPRESSION IN NOT DEFINED 

OVERFLOW OF KEY-ENTRY TABLE 

OVERFLOW UF KEY-REFERENCE TABLE 

OVERFLOW OF KEY-CHARS TABLE 

DISC ERROR ON LUNO 4 

IMDEX KEY NAME FOLLOWING 'CREATE' OR 'REPLACE' > 6 CHARACTERS 

GREATER 31 ASSIGN CARDS IN THIS JOB STEP 

•CREATE' OR 'REPLACE' NOT FOLLOWED BY INDEX KEY NAME 

DEV INDEX < 21 OR FILE VOL > 20 

PHYSICAL R.L, (CHAR) < (KEYLEN ♦ 2 ♦ 14) 

FILE TYPE NOT SPECIFIED WHEN NEEDED (DEFINE, ETC ) 

KEYNAME IS NOT IN RESERVED WORD LIST ' 

* OF ENTRIES IN TABLE PASSED TO 'CRLOOK' IS NEGATIVE 

SUBSCRIPTS APPEAR ON LH8 OF EQUAL SIGN 

TRIED TO FETCH NON-EXISTANT RHS SUBSCRIPT 

TRIED TO FETCH NON-EXISTANT OPERAND 

I/O ERROR ON LUNO ■ 2. (ECHO PRINT) 

EOF, EOM, OR I/n ERROR ON LUNO a 1, {JCL IN) 

MISSING SLASH IN FIRST COLUMN OF JCL 

OVERRID-ING KEY WORD ON RUN CARD DOES NOT EXIST FOR THIS PROCEDURE 

NUMBER OF KEY. ENTRIES IS NEGATIVE 

NUMBER OF KEY-ENTRIES > 19 

NUMB5R OF KEY-REFERENCES < n OR > 19 

NUMBER OF KEY. CHARACTERS NOT IN RANGE TO 120 

KEY. ENTRY POINTS TO KEY REFERENCE WHICH IS NOT INITIALIZED 

KEY-ENTRY FLAG INDICATES THAT NEITHER JCB NOR LOT IS BEING INITIALIZED 

LOT NUMBER REFERENCE BY KEY-ENTRY IS NOT IN RANGE TO 38 

PRODUCTION NUMBER NOT IN RANGE 3 TO 31 

JOB STEP NUMBER NOT IN RANGE 1 TO 15 

KEY-CHARS HAS LESS THAN CHARACTERS 

CHARACTERS OVERFLOW KEY-CHAR STORAGE 
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DX980 DEVICES 













DEVICE TABLE 










KEY 


DEVNAM 


ID 


TM 


ENBLD 


EXTREG 




EXP # 


-SLOT 


DEVICE 


TYPE 


IT 


DUMMY 


FF 


00 


Y 


0404 


DBUS 


0000 


0002 






DD 


DISCI 


01 


FF 


Y 




DMAC 




0000 


DS330 




DD 


DISC2 


02 


FF 


N 




DMAC 




0001 


DS31 




MT 


MTl 


IF 


FE 


Y 




DMAC 




0002 






LP 


CPl 


29 


14 


Y 


4040 


DBUS 


0000 


0006 






CR 


CRl 


33 


FE 


Y 


IFIF 


DBUS 


0000 


0004 






PR 


PTRl 


3D 


3C 


Y 


1018 


DBUS 


0000 


0008 




HS 


PP 


PTPl 


47 


3C 


Y 


1118 


DBUS 


0000 


0005 




HS 


LP 


LPl 


2A 


OF 


Y 




DMAC 




0005 






LP 


LP2 


2B 


OF 


Y 


5050 


DBUS 


0000 


0007 






CS 


CSll 


65 


3C 


Y 


0505 


DBUS 


0000 


0003 






CS 


CS12 


66 


3C 


Y 


0505 


DBUS 


0000 


0003 






DT 


SC 


15 


FF 


Y 


0505 


DBUS 


0000 


0003 


733 - 


CM 


DT 


CRTl 


16 


FF 


Y 


0606 


DBUS 


0001 


0005 


CRT - 


CM 


DT 


CRT2 


17 


FF 


Y 


0707 


DBUS 


0000 


0009 


CRT - 


CM 


DT 


CRT3 


18 


FF 


Y 


0808 


DBUS 


0000 


OOOA 


CRT - 


CM 


DT 


CRT4 


19 


FF 


Y 


0909 


DBUS 


0000 


OOOB 


CRT - 


CM 


DT 


KEYl 


lA 


FF 


Y 


OBOB 


DBUS 


0000 


OOOD 


733 - 


CM 


MT 


MT2 


20 


FE 


Y 




DMAC 




0002 






MT 


MT3 


21 


FE 


N 




DMAC 




0002 






DT 


CRTS 


IB 


FF 


Y 


OCOC 


DBUS 


0001 


0006 


CRT - 


CM 


DT 


CRT6 


IC 


FF 


Y 


ODOD 


DBUS 


0001 


0007 


CRT - 


CM 


DT 


CRT7 


ID 


FF 


Y 


OEOE 


DBUS 


0001 


0008 


CRT - 


CM 


SYSTEM DISC = 


DISCI 


















LOGGING DEVICE 


= SC 


















SYSTEM CONSOLE 


= SC 
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JOB TERMINATION CODES 



JOB TERMINATION CODES 

When a job terminates, the system generates a message to the 
log which gives the termination code for that particular job. 

An example of a normal job termination: 

NO. =30 UID= MIKEB NAME=MIKEB SUBMITTED 

NO. =30 UID= MIKEB NAME=MIKEB STEP=1 TERMINATED AT 0F03 
* TERM CODE=0 TASK TIME= 5 21 377 MJAR=4067 MJEA=821 EX=9112 

STRING NO. = 30 TERMINATED 



A term code other than indicates abnormal job termination 
See Appendix C for error codes. 
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